# Table S1: Most representative statements by topic

# load packages
library(stm)
library(foreign)

# load data
rm(list=ls(all=TRUE))
path <- "P:/2017-pathways/new/4-model-output"
setwd(path)
load("pathwaysPrevFit9.Rdata")

# most representative statements
findThoughts(pathwaysPrevFit9, texts=meta_o_p_data$openanswer.orig, n=3)
